home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / AllPlaton / Unsorted / Counter.AMOS / Counter.amosSourceCode
Encoding:
AMOS Source Code  |  1996-06-08  |  822 b   |  26 lines
  1. Screen Open 0,640,512,8,$8004
  2. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  3.  Extension_8_05B0 "LiquidCrystal",64
  4. For A=1 To 7 : Colour A,A*$200 : Next 
  5. Colour 0,$4
  6. Colour 7,0
  7. NO=-1
  8. For A=0 To 235
  9.   N=(A*120)/235
  10.   If N<>NO
  11.     Cls 
  12.     Ink 7,0 : Text 10,Text Base+100,"Steps: "+ Extension_8_0EB8(N,3)
  13.     For Y=95 To 145
  14.       For X=5 To 289
  15.         C1= Extension_8_039E(X-1,Y)+ Extension_8_039E(X,Y-1)+ Extension_8_039E(X+1,Y)+ Extension_8_039E(X,Y)
  16.         C2= Extension_8_039E(X-1,Y-1)+ Extension_8_039E(X+1,Y-1)+ Extension_8_039E(X-1,Y+1)+ Extension_8_039E(X+1,Y+1)
  17.         C=C1*6+C2*4+ Extension_8_039E(X,Y)*8
  18.         If C>0 and C<50 : C=7 : End If 
  19.          Extension_8_0388 X+30,Y-80,C/50
  20.       Next 
  21.     Next 
  22.     Cls 0,10,100 To 320,200
  23.     NO=N
  24.   End If 
  25.   Save Iff "dh1:Blab/Digits."+ Extension_8_0EB8(A,4)
  26. Next